home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Music / Musical Mac / card_3319.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  4.8 KB  |  228 lines
  1. -- card: 3319 from stack: in
  2. -- bmap block id: 3362
  3. -- flags: 0000
  4. -- background id: 2577
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=8 top=118 right=174 bottom=499
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the clickLoc into temp
  23.   get item 1 of temp
  24.   put it into temp1
  25.   divide temp1 by 6
  26.   put trunc(temp1 + 22.7) into temp2
  27.   play "Harpsichord" tempo 1000 (temp2 & "w")
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 6 (button)
  33. -- low flags: 00
  34. -- high flags: 8002
  35. -- rect: left=4 top=58 right=75 bottom=48
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Play 1
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   put field "song1" into temp1
  47.   play "harpsichord" tempo (card field "Tempo") (temp1)
  48.   wait until the sound is "done"
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 7 (button)
  54. -- low flags: 00
  55. -- high flags: 8002
  56. -- rect: left=49 top=58 right=75 bottom=93
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Play 2
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   put field "song2" into temp1
  68.   play "harpsichord" tempo (card field "Tempo") (temp1)
  69.   wait until the sound is "done"
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 8 (button)
  75. -- low flags: 00
  76. -- high flags: 8002
  77. -- rect: left=4 top=76 right=93 bottom=48
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Play 3
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   put field "song3" into temp1
  89.   play "boing" tempo (card field "Tempo") (temp1)
  90.   wait until the sound is "done"
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 10 (button)
  96. -- low flags: 00
  97. -- high flags: 2000
  98. -- rect: left=250 top=64 right=76 bottom=262
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 16692 / 16692
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: 
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   add 10 to card field "Tempo"
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 11 (button)
  115. -- low flags: 00
  116. -- high flags: 2000
  117. -- rect: left=250 top=75 right=87 bottom=262
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 3584 / 3584
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: 
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   subtract 10 from card field "Tempo"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 12 (field)
  134. -- low flags: 00
  135. -- high flags: 4002
  136. -- rect: left=264 top=70 right=87 bottom=314
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 65535
  140. -- font id: 3
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Tempo
  145.  
  146.  
  147. -- part 13 (button)
  148. -- low flags: 00
  149. -- high flags: 2000
  150. -- rect: left=233 top=57 right=75 bottom=249
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 29019 / 29019
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: 
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   add 100 to card field "Tempo"
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 14 (button)
  167. -- low flags: 00
  168. -- high flags: 2000
  169. -- rect: left=233 top=76 right=94 bottom=249
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 2730 / 2730
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: 
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   subtract 100 from card field "Tempo"
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 15 (button)
  186. -- low flags: 00
  187. -- high flags: 8002
  188. -- rect: left=49 top=76 right=93 bottom=93
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Play 4
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   put field "song4" into temp1
  200.   play "boing" tempo (card field "Tempo") (temp1)
  201.   wait until the sound is "done"
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part contents for card part 12
  207. ----- text -----
  208. 200
  209.  
  210. -- part contents for background part 9
  211. ----- text -----
  212. c5e e#q ae e#q ce e#q ae e#q. e#q ge a g e# eq e#e gq
  213.  
  214.  
  215. -- part contents for background part 7
  216. ----- text -----
  217. g2w c3q fw eq c a2 d3 gw gq b
  218.  
  219.  
  220. -- part contents for background part 10
  221. ----- text -----
  222. e5 d c d e e eh dq d dh eq g gh eq d c d e e e e d d e d ch
  223.  
  224. -- part contents for background part 8
  225. ----- text -----
  226. d gh gq ah aq b d5 b4 gh    dq gh gq ah aq bw3 gh    dq gh gq ah aq b d5 b4 gh    e5w3 a4h c5q b4w3 gw3    d5q gh gq eh gq f# a f# dh   dq gh gq eh gq f#h. dh   b4q c5h b4q c5h b4q c5h dq eh.   e5h. a4h c5q b4h. g4h.
  227.  
  228.